home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_2367.txt < prev    next >
Text File  |  1988-05-06  |  3KB  |  123 lines
  1. -- card: 2367 from stack: in.3
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2663
  5. -- name: Icon Card
  6. ----- HyperTalk script -----
  7. on copyright
  8.  
  9.   -- CopyButtonToHome, Copyright by Mac Help Co., January 1988
  10.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  11.   -- Long Beach, CA  90805, (213) 428-7414
  12.   --      The script for this button is copyrighted and may not be
  13.   --      used without the written permission of the author (above).
  14.  
  15. end copyright
  16.  
  17.  
  18. on "CopyButtonToHome"
  19.  
  20.   beep
  21.   answer "Do you want to copy this button to your Home Card?" with "Yes" or "Cancel"
  22.   if it is "Cancel" then exit "CopyButtonToHome"
  23.  
  24.   set cursor to 4
  25.   set userlevel to 5
  26.   get the userlevel
  27.   put it into OldUserLevel
  28.  
  29.   if it < 4 then
  30.     answer "Set level to 'Authoring' for this Stack OR" && "Home Preferences Card."
  31.     exit CopyButtonToHome
  32.   end if
  33.   put the short name of this stack into StackName
  34.  
  35.   choose button tool
  36.   click at the loc of card button "Click to copy to Home"
  37.   doMenu "Copy Button"
  38.   push card
  39.   push card
  40.   go home
  41.   doMenu "Paste Button"
  42.   set the loc of card button "Click to copy to Home" to 354,294
  43.   set the style of card button "Click to copy to Home" to transparent
  44.   set the name of card button "Click to copy to Home" to StackName
  45.   choose browse tool
  46.  
  47.   set lockscreen to true
  48.   pop card
  49.   pop card
  50.   set the userLevel to OldUserLevel
  51. end "CopyButtonToHome"
  52.  
  53.  
  54. -- part 1 (button)
  55. -- low flags: 00
  56. -- high flags: A004
  57. -- rect: left=272 top=32 right=81 bottom=387
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 12601 / 12601
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Click to copy to home
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.  
  69.   if the short name of this stack is "Home" then
  70.     put the short name of the target into thisName
  71.     visual effect dissolve to black
  72.     -- Go to the name of the stack
  73.     go to stack thisName
  74.   else
  75.     CopyButtonToHome
  76.   end if
  77.  
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 2 (button)
  83. -- low flags: 00
  84. -- high flags: A004
  85. -- rect: left=272 top=95 right=144 bottom=387
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 9236 / 9236
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Click to copy to home
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.  
  97.   if the short name of this stack is "Home" then
  98.     put the short name of the target into thisName
  99.     visual effect dissolve to black
  100.     -- Go to the name of the stack
  101.     go to stack thisName
  102.   else
  103.     CopyButtonToHome
  104.   end if
  105.  
  106. end mouseUp
  107.  
  108.  
  109. -- part contents for background part 8
  110. ----- text -----
  111. Card 5 of 20
  112.  
  113. -- part contents for background part 9
  114. ----- text -----
  115. COPY BUTTON to Home Card
  116.  
  117. This feature allows you to put an icon that you designed (using ResEdit or an icon making program) into your stack.  When someone buys your stack, they might want the icon on their home card.  These scripts allow the user simply to click on your icon and it will automatically be pasted on to their home card.
  118.  
  119. This feature includes two scripts.  One script is in the button itself.  If you have an icon of your own, put this script into your icon which is pasted on to your card.  
  120.  
  121. Your icon must be pasted on the card, not on the background.
  122.  
  123. The other script is located in the script area of the card (see Menu Item:  Card Info).  The name of this script is "CopyButtonToHome"